<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
Dim RZ_IN
RZ_IN=1
%>
<!--#include file="../conn.inc.asp" -->
<!--#include file="admin_inc/admin.function.asp" -->
<!--#include file="admin_inc/admin.sqlfunction.asp" -->
<!-- #include file="fckeditor.asp" -->
<%
checkadmin(4)
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>专题列表</title>
<link type="text/css" href="style/style.css" rel="stylesheet" rev="stylesheet"/>
<script type="text/javascript" src="admin_js/common.js"></script>

</head>
<body>
<div class="addrecord"><ul><li><a href="special_add.asp">添加专题</a></li></ul></div>
<div id="content">
<form name="rzform" method="post" id="rzform">
<input type="hidden" name="listtype" value="special"/>
<table class="table_800" cellspacing="0" cellpadding="0">
<th class="tdcenter">选择</th>
<th class="tdcenter">ID</th>
<th class="tdcenter">专题名称（中）</th>
<th class="tdcenter">分类名称（英）</th>
<th class="tdcenter">专题图片</th>
<th class="tdcenter">显示状态</th>
<th class="tdcenter">操作</th>
</tr>
<%
dim page,sql,MyPage,rs,specialimg,visible
page=GetIntQueryString("page")
sql="select * from [c_special] order by id desc"
if page<=1 then
page = 1
end if
Set MyPage = New RZPage
MyPage.SetSQL = sql
MyPage.PageSize = 20
MyPage.SetCss_PreNext="nextprev"
MyPage.SetCss_NumPage="pagenum"
MyPage.SetCss_CurrentPage="currentpage"
Set rs = MyPage.GetRS()
dim i
For i=1 To MyPage.PageSize
If Not rs.EOF Then 

response.write("<tr class='row'  class='tdcenter'>")
response.write("<td class='tdcenter'><input type='checkbox' name='id' id='id' value='"&rs("id")&"' onclick='chkRow(this);'/></td>")
response.write("<td class='tdcenter'>"&rs("id")&"</td>")
response.write("<td class='tdcenter'>"&rs("specialname")&"</td>")
response.write("<td class='tdcenter'>"&rs("specialengname")&"</td>")
specialimg=rs("specialimg")
response.write("<td class='tdcenter'>")
If specialimg<>"" Then
response.write("<img src='"&specialimg&"'  style='border:1px solid;width:100px;height:50px;' alt='"&specialimg&"'/>")
Else
response.write("&nbsp;")
End If 
response.write("</td>")
visible=rs("visible")
response.write("<td class='tdcenter'>")
If visible=1 Then
response.write("显示")
Else
response.write("隐藏")
End If 
response.write("</td>")
response.write("<td class='tdcenter'><a href='special_add.asp?id="&rs("id")&"'><img src='images/modify.gif' alt='修改' border='0'/></a>&nbsp;")
response.write("<a onclick=""return confirm('您确定要删除吗？');"" href='special_delete.asp?id="&rs("id")&"'><img src='images/delete.gif' alt='删除' border='0'/></a>&nbsp;")
response.write("</td>")
response.write("</tr>")
rs.Movenext
Else
Exit For
End If
Next

%>
<tr>
<td colspan="7" class="tdcenter">
<input name="selectall" type="checkbox" id="selectall" value="" onclick="selectAll();" /><%out("lang_selectall")%>&nbsp;&nbsp;&nbsp;<input type="button"  class="btn" name="del" onclick="deleteselect();" value="批量删除"/>
</td>
</tr>
</table>
</div>
<div id="bottompage">
<%MyPage.ShowPage()%>
<span class="recordcount">
<%MyPage.ShowPageInfo()%>
</span>
</div>

</body>
</html>